home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / APW Interfaces / RInclude / Pict.rez next >
Encoding:
Text File  |  1991-01-08  |  30.5 KB  |  682 lines  |  [TEXT/MPS ]
  1. /*
  2.     Pict.rez -- Type Declaration for Rez and DeRez
  3.     
  4.     Copyright Apple Computer, Inc. 1986, 1987
  5.     All rights reserved.
  6.  
  7.     This Picture resource definition should probably used
  8.     for DeRez’ing purposes only.
  9.     
  10.     - Change history -
  11.     12/21/88    - Mensch: created.
  12. */
  13. #Define rPicture    0x8002
  14. type rPicture {
  15.         integer Mode320 = 0, Mode640 =1;        /* SCB for picture */
  16.         Rect;                                   /* Bounds of picture */
  17.         Integer = 0x8211;                       /* version */
  18.                 array OpCodes {
  19.                     switch {
  20.                         case Clip:
  21.                             key integer = $0001;
  22.     ClipStart:              integer = (ClipEnd[$$ArrayIndex(OpCodes)] - ClipStart[$$ArrayIndex(OpCodes)]) >> 3;
  23.                             Rect;               /* region's enclosing rect */
  24.                             hex string [$$Word(ClipStart[$$ArrayIndex(OpCodes)]) - 10];
  25.     ClipEnd:
  26.                         case BkPat:
  27.                             key integer = $0002;
  28.                             hex string [32];
  29.                         
  30.                         case TxFont:
  31.                             key integer = $0003;
  32.                             Longint;            /* font */
  33.                         
  34.                         case TxFace:
  35.                             key integer = $0004;
  36.                             unsigned hex Integer;   /* text face */
  37.                         
  38.                         case TxMode:
  39.                             key integer = $0005;
  40.                             integer     srcCopy, srcOr, srcXor, srcBic, /* mode */
  41.                                         notSrcCopy, notSrcOr, notSrcXor,
  42.                                         notSrcBic, patCopy, patOr, patXor,
  43.                                         patBic, notPatCopy, notPatOr, notPatBic;
  44.                         
  45.                         case SpExtra:
  46.                             key integer = $0006;
  47.                             unsigned hex longint;
  48.                         
  49.                         case PnSize:
  50.                             key integer = $0007;
  51.                             Point;
  52.                         
  53.                         case PnMode:
  54.                             key integer = $0008;
  55.                             unsigned hex integer;
  56.                         
  57.                         case PnPat:
  58.                             key integer = $0009;
  59.                             hex string [32];
  60.                         
  61.                         case FillPat:
  62.                             key integer = $000A;
  63.                             hex string [32];
  64.                         
  65.                         case OvSize:
  66.                             key integer = $000B;
  67.                             Point;
  68.                         
  69.                         case Origin:
  70.                             key integer = $000C;
  71.                             integer;            /* dh */
  72.                             integer;            /* dv */
  73.                         
  74.                         case TxSize:
  75.                             key integer = $000D;
  76.                             integer;
  77.                         
  78.                         case FgColor:
  79.                             key integer = $000E;
  80.                             Integer;
  81.                         
  82.                         case BkColor:
  83.                             key integer = $000F;
  84.                             Integer;
  85.                         
  86.                         case UNUSED10:
  87.                             key integer = $0010;
  88.                             Point;              /* numer */
  89.                             Point;              /* denom */
  90.                         
  91.                         case Version:
  92.                             key integer = $8211;
  93.  
  94.                         case ChExtra:
  95.                             key integer = $0012;
  96.                             LongInt;
  97.  
  98.                         case PnMask:
  99.                             key integer = $0013;
  100.                             hex string [8];
  101.  
  102.                         case ArcRot:
  103.                             key integer = $0014;
  104.                             integer;
  105.                         
  106.                         case FontFlags:
  107.                             key integer = $0015;
  108.                             unsigned hex integer;
  109.                         
  110.                         case AppleReserved0016:
  111.                             key integer = $0016;
  112.                         
  113.                         case AppleReserved0017:
  114.                             key integer = $0017;
  115.                             
  116.                         case AppleReserved0018:
  117.                             key integer = $0018;
  118.                             
  119.                         case AppleReserved0019:
  120.                             key integer = $0019;
  121.                         
  122.                         case AppleReserved001A:
  123.                             key integer = $001A;
  124.                         
  125.                         case Line:
  126.                             key integer = $0020;
  127.                             Point;                  /* pnLoc */
  128.                             Point;                  /* newPt */
  129.                             
  130.                         case LineFrom:
  131.                             key integer = $0021;
  132.                             Point;                  /* newPt */
  133.                         
  134.                         case ShortLine:
  135.                             key integer = $0022;
  136.                             Point;                  /* pnLoc */
  137.                             byte;                   /* dh */
  138.                             byte;                   /* dv */
  139.                         
  140.                         case ShortLineFrom:
  141.                             key integer = $0023;
  142.                             byte;                   /* dh */
  143.                             byte;                   /* dv */
  144.                         
  145.                         case AppleReserved0024:
  146.                             key integer = $0024;
  147.                 AR24:       unsigned integer = (AR24End - AR24) / 8 - 2;
  148.                             hex string [$$Word(AR24)];
  149.                 AR24End:
  150.                         
  151.                         case AppleReserved0025:
  152.                             key integer = $0025;
  153.                 AR25:       unsigned integer = (AR25End - AR25) / 8 - 2;
  154.                             hex string [$$Word(AR25)];
  155.                 AR25End:
  156.                         
  157.                         case AppleReserved0026:
  158.                             key integer = $0026;
  159.                 AR26:       unsigned integer = (AR26End - AR26) / 8 - 2;
  160.                             hex string [$$Word(AR26)];
  161.                 AR26End:
  162.                         
  163.                         case AppleReserved0027:
  164.                             key integer = $0027;
  165.                 AR27:       unsigned integer = (AR27End - AR27) / 8 - 2;
  166.                             hex string [$$Word(AR27)];
  167.                 AR27End:
  168.                         
  169.                         case LongText:
  170.                             key integer = $0028;
  171.                             Point;              /* txLoc */
  172.                             pstring;            /* text */
  173.                         
  174.                         case DHText:
  175.                             key integer = $0029;
  176.                             byte;               /* dh */
  177.                             pstring;            /* text */
  178.  
  179.                         case DVText:
  180.                             key integer = $002A;
  181.                             byte;               /* dv */
  182.                             pstring;            /* text */
  183.  
  184.                         case DHDVText:
  185.                             key integer = $002B;
  186.                             byte;               /* dh */
  187.                             byte;               /* dv */
  188.                             pstring;            /* text */
  189.  
  190.                         case RealLongText:
  191.                             key integer = $002C;
  192.                             point;
  193.                 AR2C:       unsigned integer = (AR2CEnd - AR2C) / 8 - 2;
  194.                             hex string [$$Word(AR2C)];
  195.                 AR2CEnd:
  196.                         
  197.                         case AppleReserved002D:
  198.                             key integer = $002D;
  199.                 AR2D:       unsigned integer = (AR2DEnd - AR2D) / 8 - 2;
  200.                             hex string [$$Word(AR2D)];
  201.                 AR2DEnd:
  202.                         
  203.                         case AppleReserved002E:
  204.                             key integer = $002E;
  205.                 AR2E:       unsigned integer = (AR2EEnd - AR2E) / 8 - 2;
  206.                             hex string [$$Word(AR2E)];
  207.                 AR2EEnd:
  208.                         
  209.                         case AppleReserved002F:
  210.                             key integer = $002F;
  211.                 AR2F:       unsigned integer = (AR2FEnd - AR2F) / 8 - 2;
  212.                             hex string [$$Word(AR2F)];
  213.                 AR2FEnd:
  214.                         
  215.                         case FrameRect:
  216.                             key integer = $0030;
  217.                             Rect;
  218.                             
  219.                         case PaintRect:
  220.                             key integer = $0031;
  221.                             Rect;
  222.                             
  223.                         case EraseRect:
  224.                             key integer = $0032;
  225.                             Rect;
  226.                             
  227.                         case InvertRect:
  228.                             key integer = $0033;
  229.                             Rect;
  230.                             
  231.                         case FillRect:
  232.                             key integer = $0034;
  233.                             Rect;
  234.                             
  235.                         case AppleReserved0035:
  236.                             key integer = $0035;
  237.                             Rect;
  238.                             
  239.                         case AppleReserved0036:
  240.                             key integer = $0036;
  241.                             Rect;
  242.                             
  243.                         case AppleReserved0037:
  244.                             key integer = $0037;
  245.                             Rect;
  246.                         
  247.                         case FrameSameRect:
  248.                             key integer = $0038;
  249.                         
  250.                         case PaintSameRect:
  251.                             key integer = $0039;
  252.                         
  253.                         case EraseSameRect:
  254.                             key integer = $003A;
  255.                         
  256.                         case InvertSameRect:
  257.                             key integer = $003B;
  258.                         
  259.                         case FillSameRect:
  260.                             key integer = $003C;
  261.                         
  262.                         case AppleReserved003D:
  263.                             key integer = $003D;
  264.                         
  265.                         case AppleReserved003E:
  266.                             key integer = $003E;
  267.                         
  268.                         case AppleReserved003F:
  269.                             key integer = $003F;
  270.                         
  271.                         case FrameRRect:
  272.                             key integer = $0040;
  273.                             Rect;
  274.                             
  275.                         case PaintRRect:
  276.                             key integer = $0041;
  277.                             Rect;
  278.                             
  279.                         case EraseRRect:
  280.                             key integer = $0042;
  281.                             Rect;
  282.                             
  283.                         case InvertRRect:
  284.                             key integer = $0043;
  285.                             Rect;
  286.                             
  287.                         case FillRRect:
  288.                             key integer = $0044;
  289.                             Rect;
  290.                             
  291.                         case AppleReserved0045:
  292.                             key integer = $0045;
  293.                             Rect;
  294.                             
  295.                         case AppleReserved0046:
  296.                             key integer = $0046;
  297.                             Rect;
  298.                             
  299.                         case AppleReserved0047:
  300.                             key integer = $0047;
  301.                             Rect;
  302.                         
  303.                         case FrameSameRRect:
  304.                             key integer = $0048;
  305.                         
  306.                         case PaintSameRRect:
  307.                             key integer = $0049;
  308.                         
  309.                         case EraseSameRRect:
  310.                             key integer = $004A;
  311.                         
  312.                         case InvertSameRRect:
  313.                             key integer = $004B;
  314.                         
  315.                         case FillSameRRect:
  316.                             key integer = $004C;
  317.                         
  318.                         case AppleReserved004D:
  319.                             key integer = $004D;
  320.                         
  321.                         case AppleReserved004E:
  322.                             key integer = $004E;
  323.                         
  324.                         case AppleReserved004F:
  325.                             key integer = $004F;
  326.                         
  327.                         case FrameOval:
  328.                             key integer = $0050;
  329.                             Rect;
  330.                             
  331.                         case PaintOval:
  332.                             key integer = $0051;
  333.                             Rect;
  334.                             
  335.                         case EraseOval:
  336.                             key integer = $0052;
  337.                             Rect;
  338.                             
  339.                         case InvertOval:
  340.                             key integer = $0053;
  341.                             Rect;
  342.                             
  343.                         case FillOval:
  344.                             key integer = $0054;
  345.                             Rect;
  346.                             
  347.                         case AppleReserved0055:
  348.                             key integer = $0055;
  349.                             Rect;
  350.                             
  351.                         case AppleReserved0056:
  352.                             key integer = $0056;
  353.                             Rect;
  354.                             
  355.                         case AppleReserved0057:
  356.                             key integer = $0057;
  357.                             Rect;
  358.                         
  359.                         case FrameSameOval:
  360.                             key integer = $0058;
  361.                         
  362.                         case PaintSameOval:
  363.                             key integer = $0059;
  364.                         
  365.                         case EraseSameOval:
  366.                             key integer = $005A;
  367.                         
  368.                         case InvertSameOval:
  369.                             key integer = $005B;
  370.                         
  371.                         case FillSameOval:
  372.                             key integer = $005C;
  373.                         
  374.                         case AppleReserved005D:
  375.                             key integer = $005D;
  376.                         
  377.                         case AppleReserved005E:
  378.                             key integer = $005E;
  379.                         
  380.                         case frameArc:
  381.                             key integer = $0060;
  382.                             Rect;
  383.                             integer;                /* startAngle */
  384.                             integer;                /* arcAngle */
  385.                         
  386.                         case paintArc:
  387.                             key integer = $0061;
  388.                             Rect;
  389.                             integer;                /* startAngle */
  390.                             integer;                /* arcAngle */
  391.                         
  392.                         case eraseArc:
  393.                             key integer = $0062;
  394.                             Rect;
  395.                             integer;                /* startAngle */
  396.                             integer;                /* arcAngle */
  397.                         
  398.                         case invertArc:
  399.                             key integer = $0063;
  400.                             Rect;
  401.                             integer;                /* startAngle */
  402.                             integer;                /* arcAngle */
  403.                         
  404.                         case fillArc:
  405.                             key integer = $0064;
  406.                             Rect;
  407.                             integer;                /* startAngle */
  408.                             integer;                /* arcAngle */
  409.                         
  410.                         case AppleReserved0065:
  411.                             key integer = $0065;
  412.                             Rect;
  413.                             integer;                /* startAngle */
  414.                             integer;                /* arcAngle */
  415.                         
  416.                         case AppleReserved0066:
  417.                             key integer = $0066;
  418.                             Rect;
  419.                             integer;                /* startAngle */
  420.                             integer;                /* arcAngle */
  421.                         
  422.                         case AppleReserved0067:
  423.                             key integer = $0067;
  424.                             Rect;
  425.                             integer;                /* startAngle */
  426.                             integer;                /* arcAngle */
  427.                         
  428.                         case frameSameArc:
  429.                             key integer = $0068;
  430.                             integer;                /* startAngle */
  431.                             integer;                /* arcAngle */
  432.  
  433.                         case paintSameArc:
  434.                             key integer = $0069;
  435.                             integer;                /* startAngle */
  436.                             integer;                /* arcAngle */
  437.  
  438.                         case eraseSameArc:
  439.                             key integer = $006A;
  440.                             integer;                /* startAngle */
  441.                             integer;                /* arcAngle */
  442.  
  443.                         case invertSameArc:
  444.                             key integer = $006B;
  445.                             integer;                /* startAngle */
  446.                             integer;                /* arcAngle */
  447.  
  448.                         case fillSameArc:
  449.                             key integer = $006C;
  450.                             integer;                /* startAngle */
  451.                             integer;                /* arcAngle */
  452.                         
  453.                         case AppleReserved006D:
  454.                             key integer = $006D;
  455.                             integer;                /* startAngle */
  456.                             integer;                /* arcAngle */
  457.                         
  458.                         case AppleReserved006E:
  459.                             key integer = $006E;
  460.                             integer;                /* startAngle */
  461.                             integer;                /* arcAngle */
  462.                         
  463.                         case AppleReserved006F:
  464.                             key integer = $006F;
  465.                             integer;                /* startAngle */
  466.                             integer;                /* arcAngle */
  467.                         
  468.                         case framePoly:
  469.                             key integer = $0070;
  470.                             integer = $$CountOf(framePoly) * 4 + 10;
  471.                             Rect;                   /* enclosing rectangle */
  472.                             array framePoly {
  473.                                 Point;
  474.                             };
  475.                         
  476.                         case paintPoly:
  477.                             key integer = $0071;
  478.                             integer = $$CountOf(framePoly) * 4 + 10;
  479.                             Rect;                   /* enclosing rectangle */
  480.                             array framePoly {
  481.                                 Point;
  482.                             };
  483.                         
  484.                         case erasePoly:
  485.                             key integer = $0072;
  486.                             integer = $$CountOf(framePoly) * 4 + 10;
  487.                             Rect;                   /* enclosing rectangle */
  488.                             array framePoly {
  489.                                 Point;
  490.                             };
  491.                         
  492.                         case invertPoly:
  493.                             key integer = $0073;
  494.                             integer = $$CountOf(framePoly) * 4 + 10;
  495.                             Rect;                   /* enclosing rectangle */
  496.                             array framePoly {
  497.                                 Point;
  498.                             };
  499.                         
  500.                         case fillPoly:
  501.                             key integer = $0074;
  502.                             integer = $$CountOf(framePoly) * 4 + 10;
  503.                             Rect;                   /* enclosing rectangle */
  504.                             array framePoly {
  505.                                 Point;
  506.                             };
  507.                         
  508.                         case AppleReserved0075:
  509.                             key integer = $0075;
  510.                             integer = $$CountOf(framePoly) * 4 + 10;
  511.                             Rect;                   /* enclosing rectangle */
  512.                             array framePoly {
  513.                                 Point;
  514.                             };
  515.                         
  516.                         case AppleReserved0076:
  517.                             key integer = $0076;
  518.                             integer = $$CountOf(framePoly) * 4 + 10;
  519.                             Rect;                   /* enclosing rectangle */
  520.                             array framePoly {
  521.                                 Point;
  522.                             };
  523.                         
  524.                         case AppleReserved0077:
  525.                             key integer = $0077;
  526.                             integer = $$CountOf(framePoly) * 4 + 10;
  527.                             Rect;                   /* enclosing rectangle */
  528.                             array framePoly {
  529.                                 Point;
  530.                             };
  531.                         
  532.                         case frameSamePoly:
  533.                             key integer = $0078;
  534.     
  535.                         case paintSamePoly:
  536.                             key integer = $0079;
  537.     
  538.                         case eraseSamePoly:
  539.                             key integer = $007A;
  540.     
  541.                         case invertSamePoly:
  542.                             key integer = $007B;
  543.     
  544.                         case fillSamePoly:
  545.                             key integer = $007C;
  546.     
  547.                         case AppleReserved007D:
  548.                             key integer = $007D;
  549.     
  550.                         case AppleReserved007E:
  551.                             key integer = $007E;
  552.     
  553.                         case AppleReserved007F:
  554.                             key integer = $007F;
  555.     
  556.                         case frameRgn:
  557.                             key integer = $0080;
  558.     frameRgnStart2:         integer = (frameRgnEnd2[$$ArrayIndex(OpCodes)] - frameRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
  559.                             Rect;               /* region's enclosing rect */
  560.                             hex string [$$Word(frameRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
  561.     frameRgnEnd2:
  562.                         case paintRgn:
  563.                             key integer = $0081;
  564.     paintRgnStart2:         integer = (paintRgnEnd2[$$ArrayIndex(OpCodes)] - paintRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
  565.                             Rect;               /* region's enclosing rect */
  566.                             hex string [$$Word(paintRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
  567.     paintRgnEnd2:
  568.                         case eraseRgn:
  569.                             key integer = $0082;
  570.     eraseRgnStart2:         integer = (eraseRgnEnd2[$$ArrayIndex(OpCodes)] - eraseRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
  571.                             Rect;               /* region's enclosing rect */
  572.                             hex string [$$Word(eraseRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
  573.     eraseRgnEnd2:
  574.                         case invertRgn:
  575.                             key integer = $0083;
  576.     invertRgnStart2:        integer = (invertRgnEnd2[$$ArrayIndex(OpCodes)] - invertRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
  577.                             Rect;               /* region's enclosing rect */
  578.                             hex string [$$Word(invertRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
  579.     invertRgnEnd2:
  580.                         case fillRgn:
  581.                             key integer = $0084;
  582.     fillRgnStart2:          integer = (fillRgnEnd2[$$ArrayIndex(OpCodes)] - fillRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
  583.                             Rect;               /* region's enclosing rect */
  584.                             hex string [$$Word(fillRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
  585.     fillRgnEnd2:
  586.                         case AppleReserved0085:
  587.                             key integer = $0085;
  588.     AppleReserved0085Start:integer = (AppleReserved0085End[$$ArrayIndex(OpCodes)] - AppleReserved0085Start[$$ArrayIndex(OpCodes)]) >> 3;
  589.                             Rect;               /* region's enclosing rect */
  590.                             hex string [$$Word(AppleReserved0085Start[$$ArrayIndex(OpCodes)]) - 10];
  591.     AppleReserved0085End:
  592.                         case AppleReserved0086:
  593.                             key integer = $0086;
  594.     AppleReserved0086Start: integer = (AppleReserved0086End[$$ArrayIndex(OpCodes)] - AppleReserved0086Start[$$ArrayIndex(OpCodes)]) >> 3;
  595.                             Rect;               /* region's enclosing rect */
  596.                             hex string [$$Word(AppleReserved0086Start[$$ArrayIndex(OpCodes)]) - 10];
  597.     AppleReserved0086End:
  598.                         case AppleReserved0087:
  599.                             key integer = $0087;
  600.     AppleReserved0087Start: integer = (AppleReserved0087End[$$ArrayIndex(OpCodes)] - AppleReserved0087Start[$$ArrayIndex(OpCodes)]) >> 3;
  601.                             Rect;               /* region's enclosing rect */
  602.                             hex string [$$Word(AppleReserved0087Start[$$ArrayIndex(OpCodes)]) - 10];
  603.     AppleReserved0087End:
  604.                         case frameSameRgn:
  605.                             key integer = $0088;
  606.  
  607.                         case paintSameRgn:
  608.                             key integer = $0089;
  609.  
  610.                         case eraseSameRgn:
  611.                             key integer = $008A;
  612.  
  613.                         case invertSameRgn:
  614.                             key integer = $008B;
  615.  
  616.                         case fillSameRgn:
  617.                             key integer = $008C;
  618.  
  619.                         case AppleReserved008D:
  620.                             key integer = $008D;
  621.  
  622.                         case AppleReserved008E:
  623.                             key integer = $008E;
  624.  
  625.                         case AppleReserved008F:
  626.                             key integer = $008F;
  627.  
  628.                         case BitsRect:
  629.                             key integer = $0090;
  630.                             integer;        /* originSCB */
  631.                             integer;        /* B/W vs Color */
  632.     BitsRectpMapRowBytes:   Integer;        /*width of pixel image  */
  633.     BitsRectBounds2:        rect;                                                   /* Bitmap bounds        */
  634.                             Rect;                       /* srcRect */
  635.                             Rect;                       /* destRect */
  636.                             integer     srcCopy, srcOr, srcXor, srcBic, /* mode */
  637.                                         notSrcCopy, notSrcOr, notSrcXor,
  638.                                         notSrcBic, patCopy, patOr, patXor,
  639.                                         patBic, notPatCopy, notPatOr, notPatBic,
  640.                                         blend = 32, addPin, addOver, subPin,
  641.                                         adMax = 37, subOver, adMin;
  642.     BitsRectBits:           hex string [$$BitField(BitsRectpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) *
  643.                                         ($$BitField(BitsRectBounds2[$$ArrayIndex(OpCodes)],32,16)
  644.                                         - $$BitField(BitsRectBounds2[$$ArrayIndex(OpCodes)],0,16))];
  645.                         
  646.                         
  647.                         case BitsRgn:
  648.                             key integer = $0091;
  649.                             integer;        /* originSCB */
  650.                             integer;        /* B/W vs Color */
  651.     BitsRgnpMapRowBytes:    integer;        /* width of pixel image */
  652.     BitsRgnBounds2:         rect;           /* bounds rect */
  653.                             rect;           /* src rect */
  654.                             rect;           /* destrect */
  655.                             integer     srcCopy, srcOr, srcXor, srcBic, /* mode */
  656.                                         notSrcCopy, notSrcOr, notSrcXor,
  657.                                         notSrcBic, patCopy, patOr, patXor,
  658.                                         patBic, notPatCopy, notPatOr, notPatBic;
  659.             BitsRectStart:  integer = (BitsRectEnd[$$ArrayIndex(OpCodes)] - BitsRectStart[$$ArrayIndex(OpCodes)]);
  660.                             hex string[$$Word(BitsRectStart[$$ArrayIndex(OpCodes)])];
  661.             BitsRectEnd:
  662.         
  663.     BitsRgnStart2:          integer = (BitsRgnEnd2[$$ArrayIndex(OpCodes)] - BitsRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
  664.                             Rect;               /* region's enclosing rect */
  665.                             hex string [$$Word(BitsRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
  666.     BitsRgnEnd2:            hex string [$$PackedSize(BitsRgnEnd2[$$ArrayIndex(OpCodes)],
  667.                                         $$BitField(BitsRgnpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
  668.                                         ($$BitField(BitsRgnBounds2[$$ArrayIndex(OpCodes)],32,16)
  669.                                         - $$BitField(BitsRgnBounds2[$$ArrayIndex(OpCodes)],0,16)))];
  670.  
  671.                         
  672.                         case LongComment:
  673.                             key integer = $00A1;
  674.                             integer;                            /* comment kind */
  675.     longCommentStart2:      integer = (longCommentEnd2[$$ArrayIndex(OpCodes)] - longCommentStart2[$$ArrayIndex(OpCodes)] - 16) >> 3;
  676.                             hex string [$$Word(longCommentStart2[$$ArrayIndex(OpCodes)])];
  677.     longCommentEnd2:
  678.                         
  679.                 };
  680.         };
  681. };
  682.